! oct_window   /rewritten 2/22/94/***VL/
shadow on
addy b/2
mulx a/2
muly b/2
z=sqr(2)-1
pen F_
material I_

for v=1 to 4
cprism_ G_,H_,I_,
3,C_,
1,z,10,
1,1,8,
z,1,13
add z,1,0
rotx 90
rotz 90
rect C_,2*z
del 3
rotz 90
next v

end

